home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0292.ZIP / MAILMEN.ARC / XMASLAB.PRG < prev   
Text File  |  1985-12-21  |  1KB  |  75 lines
  1. * Converted to Dbase III by Bill Simpson 6/7/85 (713) 530-8500
  2. *!!*       dBASE CONVERT - dBASE III File Conversion Aid  v1.0 6/14/84
  3. *
  4. SET HEADING OFF
  5. SET SAFETY OFF
  6. * XMASLAB.PRG PRINTS CHRISTMAS LABELS FOR MAILING LIST PROGRAM (C) COPYRIGHT
  7. * DECEMBER 3, 1983 BY PHILIP K. PERLMAN
  8. SET TALK OFF
  9. CLEAR
  10. STORE .T. TO BEVEL
  11. DO WHILE BEVEL
  12.   STORE ' ' TO ANS1
  13.   @ 10,5 say "Do you wish to print labels of friends or business (F or B) ?"
  14.   @ 10,75 GET ANS1
  15.   READ
  16.   CLEAR GETS
  17.   IF UPPER(ANS1) = 'F' .OR. UPPER(ANS1) = 'B'
  18.     STORE .F. TO BEVEL
  19.   ENDIF
  20. ENDDO
  21. CLEAR
  22. @ 10,5 SAY 'Mount Labels one across by 15/16" high in Printer'
  23. @ 12,5 SAY 'Press any key when ready'
  24. ?
  25. ?
  26. ?
  27. ?
  28.  
  29. ?
  30. ?
  31. ?
  32. ?
  33. wait
  34. IF UPPER(ANS1) = 'F'
  35.   USE MAIL
  36.   GO TOP
  37.   SET PRINT ON
  38.   ? CHR(15)
  39.   DO WHILE .NOT. EOF()
  40.     IF FRIEND <> ' '
  41.       ? TRIM(FIRST), LAST
  42.       ? ADDR1
  43.       ? ADDR2
  44.       ? TRIM(CITY)-"," , STATE, ZIP
  45.       ?
  46.       ?
  47.     ENDIF
  48.     SKIP
  49.   ENDDO
  50.   ? CHR(18)
  51.   SET PRINT OFF
  52.   RETURN
  53. ENDIF
  54. IF UPPER(ANS1) = 'B'
  55.   USE MAIL
  56.   GO TOP
  57.   SET PRINT ON
  58.   ? CHR(15)
  59.   DO WHILE .NOT. EOF()
  60.     IF BUS_XMAS <> ' '
  61.       ? TRIM(FIRST), LAST
  62.       ? COMPANY
  63.       ? ADDR1
  64.       ? TRIM(CITY)-"," , STATE, ZIP
  65.       ?
  66.       ?
  67.     ENDIF
  68.     SKIP
  69.   ENDDO
  70.   ? CHR(18)
  71.   SET PRINT OFF
  72.   RETURN
  73. ENDIF
  74.  
  75.